home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / programs / lotus / lotus001.dsk / MACROS / OPENDOCS.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  10.0 KB  |  680 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     ô»Ä₧é╔òíÉöé╠╠º▓┘é≡èJé¡
  28.     Lotus WPD Technical Support
  29.     Intermediate
  30.     DialogBox, FileOpen
  31.     autorun
  32.     775429180
  33.     44
  34.     673204697
  35.     445
  36.     3
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     Peyton McManus
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [lay]
  63.     Standard
  64.     513
  65.     [rght]
  66.         15840
  67.         12240
  68.         1
  69.         1440
  70.         1440
  71.         1
  72.         1440
  73.         1440
  74.         2
  75.         1
  76.         0
  77.         1
  78.         1
  79.         2
  80.         1
  81.         1440
  82.         10800
  83.         5
  84.         1
  85.         720
  86.         1
  87.         1440
  88.         1
  89.         2880
  90.         1
  91.         4320
  92.         1
  93.         5760
  94.     [hrght]
  95.     [lyfrm]
  96.         1
  97.         11200
  98.         0
  99.         0
  100.         12240
  101.         1440
  102.         0
  103.         1
  104.         3
  105.         1 0 0 0 0 0 0
  106.         0
  107.         0
  108.         1
  109.     [frmlay]
  110.         1440
  111.         12240
  112.         1
  113.         1440
  114.         72
  115.         1
  116.         360
  117.         1440
  118.         0
  119.         1
  120.         0
  121.         1
  122.         1
  123.         0
  124.         1
  125.         1440
  126.         10800
  127.         0
  128.     [txt]
  129. @âëâxâï@<+B>MDIOPEN.SMM
  130.  
  131. @âëâxâï@<+B>Peyton McManus Lous WPD
  132.  
  133. @âëâxâï@<+B>Last revised June 3, 1991
  134.  
  135. >
  136.     [frght]
  137.     [lyfrm]
  138.         1
  139.         13248
  140.         0
  141.         14400
  142.         12240
  143.         15840
  144.         0
  145.         1
  146.         3
  147.         1 0 0 0 0 0 0
  148.         0
  149.         0
  150.         2
  151.     [frmlay]
  152.         15840
  153.         12240
  154.         1
  155.         1440
  156.         360
  157.         1
  158.         14472
  159.         1440
  160.         0
  161.         1
  162.         0
  163.         1
  164.         1
  165.         0
  166.         1
  167.         1440
  168.         10800
  169.         0
  170.     [txt]
  171. >
  172. [elay]
  173. [l1]
  174.     0
  175. [pg]
  176.     3
  177.     54 0 22 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  178.     99 27 15 32 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  179.     121 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  180. [edoc]
  181. <:#239,9360>define EnableWindow(hwnd, fEnable)    DLLCall("user,EnableWindow,IHI", %1, %2)
  182.  
  183. <:#239,9360>define LB_GETSELCOUNT    0x411
  184.  
  185. <:#239,9360>define LB_GETCARETINDEX    0x420
  186.  
  187. <:#239,9360>define LB_SETSEL        0x406
  188.  
  189. @╠º▌╕╝«▌@<:#239,9360>
  190.  
  191. @╠º▌╕╝«▌@<:#239,9360>Function Multiple()
  192.  
  193. <:#239,9360>IF IsNewWave()
  194.  
  195. <:#239,9360>    Message("NewWaveé┼é═é▒é╠â}âNâìé═ùLî°é┼é═éáéΦé▄é╣é±üB")
  196.  
  197. <:#239,9360>    Exit Function
  198.  
  199. <:#239,9360>ENDIF
  200.  
  201. <:#239,9360>IgnoreKeyboard(2)
  202.  
  203. <:#239,9360>AllocGlobalVar("nFile", 1)
  204.  
  205. <:#239,9360>SetGlobalVar("nFile", 0)
  206.  
  207. <:#239,9360>doc=getdocpath$()
  208.  
  209. <:#239,9360>DOSChdir(doc)
  210.  
  211. <:#239,9360>Filledit(9001,"*.s?m")
  212.  
  213. <:#239,9360>Filledit(51,true)
  214.  
  215. <:#239,9360>SetDlgCallback(0, "initdlg")
  216.  
  217. <:#239,9360>SetdlgCallback(9001, "setname")
  218.  
  219. <:#239,9360>Box=dialogbox(".","Getfiles")
  220.  
  221. <:#239,9360>if Box<<<;>1
  222.  
  223. <:#239,9360>    goto endmac
  224.  
  225. <:#239,9360>Endif
  226.  
  227. <:#239,9360>Radio2=Getdialogfield$(52)
  228.  
  229. <:#239,9360>dir=getcurrentdir$()
  230.  
  231. <:#239,9360>n = GetOpenFileCount()
  232.  
  233. <:#239,9360>if n
  234.  
  235. <:#239,9360>dim OpenFileName(n)
  236.  
  237. <:#239,9360>GetOpenFileNames(&OpenFileName)
  238.  
  239. <:#239,9360>endif
  240.  
  241. <:#239,9360>for i = 1 to GetGlobalVar$("nFile")
  242.  
  243. <:#239,9360>    Temp = UCASE$(strcat$(dir, GetGlobalArray$("FileName", i)))
  244.  
  245. <:#239,9360>    AlreadyOpen = 0
  246.  
  247. <:#239,9360>    for j = 1 to n
  248.  
  249. <:#239,9360>        if temp = OpenFileName(j)
  250.  
  251. <:#239,9360>            AlreadyOpen = 1
  252.  
  253. <:#239,9360>            break
  254.  
  255. <:#239,9360>        endif
  256.  
  257. <:#239,9360>    next
  258.  
  259. <:#239,9360>    if AlreadyOpen = 0
  260.  
  261. <:#239,9360>        Fileopen("{temp}",1,"AmiPro")
  262.  
  263. <:#239,9360>        pause(002)
  264.  
  265. <:#239,9360>        If Radio2
  266.  
  267. <:#239,9360>            Appminimize("{temp}")
  268.  
  269. <:#239,9360>        Endif
  270.  
  271. <:#239,9360>    elseif (Radio2)
  272.  
  273. <:#239,9360>        Appminimize(temp)
  274.  
  275. <:#239,9360>    else
  276.  
  277. <:#239,9360>        AppMaximize(temp)
  278.  
  279. <:#239,9360>    endif
  280.  
  281. <:#239,9360>next
  282.  
  283. <:#239,9360>
  284.  
  285. <:#239,9360>endmac:
  286.  
  287. <:#239,9360>FreeGlobalVar("nFile")
  288.  
  289. <:#239,9360>FreeGlobalVar("FileName")
  290.  
  291. <:#239,9360>End Function
  292.  
  293. <:#239,9360>
  294.  
  295. <:#239,9360>function initdlg(hwnd, ID, obj)
  296.  
  297. <:#239,9360>n = GetOpenFileCount()
  298.  
  299. <:#239,9360>AllocGlobalVar("FileName", 9 - n)
  300.  
  301. <:#239,9360>for i = 1012 - n to 1011
  302.  
  303. <:#239,9360>    EnableWindow(GetDlgItem(hwnd, i), 0)
  304.  
  305. <:#239,9360>next
  306.  
  307. <:#239,9360>end function
  308.  
  309. <:#239,9360>
  310.  
  311. <:#239,9360>function SetName(hwnd, ID, obj)
  312.  
  313. <:#239,9360>defstr f, n, fn;
  314.  
  315. <:#239,9360>hdlg = GetDlgItem(hwnd, 9001)
  316.  
  317. <:#478,9360>if assign(&n, AppSendMessage(hdlg, LB_GETSELCOUNT, 0, 0)) = GetGlobalVar$("nFile") or left$(GetDlgItemText(hwnd, 9001), 1) = chr$(0x5b)
  318.  
  319. <:#239,9360>    exit function
  320.  
  321. <:#239,9360>endif
  322.  
  323. <:#239,9360>if n <;> 9 - assign(&f, GetOpenFileCount())
  324.  
  325. <:#239,9360>    AppSendMessage(hdlg, LB_SETSEL, 0, AppSendMessage(hdlg, LB_GETCARETINDEX, 0, 0))
  326.  
  327. <:#239,9360>    message("é▒éΩê╚Åπé═âtâ@âCâïé≡âIü[âvâôé┼é½é▄é╣é±üB")
  328.  
  329. <:#239,9360>    exit function
  330.  
  331. <:#239,9360>endif
  332.  
  333. <:#239,9360>SetGlobalVar("nFile", n)
  334.  
  335. <:#239,9360>files = GetDlgItemText(hwnd, 8001)
  336.  
  337. <:#239,9360>if n = 0
  338.  
  339. <:#239,9360>    files = ""
  340.  
  341. <:#239,9360>endif
  342.  
  343. <:#239,9360>for i = 1 to 9 - f
  344.  
  345. <:#239,9360>    if assign(&fn, strfield$(files, i, " ")) = -1
  346.  
  347. <:#239,9360>        fn = ""
  348.  
  349. <:#239,9360>    endif
  350.  
  351. <:#239,9360>    SetDlgItemText(hwnd, 1011 + i, fn)
  352.  
  353. <:#239,9360>    SetGlobalArray("FileName", i, fn)
  354.  
  355. <:#239,9360>next
  356.  
  357. <:#239,9360>end function
  358.  
  359. <:#239,9360>
  360.  
  361. <:#239,9360>DIALOG    Getfiles
  362.  
  363. <:#478,9360>-2134376448    27    153    32    150    140    ""    ""    "òíÉöé╠âtâ@âCâïé≡èJé¡"
  364.  
  365. <:#239,9360>FONT    8    "System"
  366.  
  367. <:#478,9360>6    4    33    8    1000    1342177280    "static"    "├▐¿┌╕─╪:"    0 
  368.  
  369. <:#478,9360>6    13    93    8    7999    1342177280    "static"    "current directory"    0 
  370.  
  371. <:#478,9360>105    4    40    12    1    1342373889    "button"    "OK"    0 
  372.  
  373. <:#478,9360>105    20    40    12    2    1342373888    "button"    "╖¼▌╛┘"    0 
  374.  
  375. <:#478,9360>6    29    40    8    1002    1342177280    "static"    "╠º▓┘(\036F\037╠):"    0 
  376.  
  377. <:#478,9360>6    40    65    81    9001    1352728587    "listbox"    ""    0 
  378.  
  379. <:#478,9360>12    124    55    12    51    1342308361    "button"    "ì┼æσò\Ī(\036X\037╗)"    0 
  380.  
  381. <:#478,9360>80    124    55    12    52    1342177289    "button"    "▒▓║▌ë╗(\036N\037▒)"    0 
  382.  
  383. <:#478,9360>78    40    9    8    1003    1342177280    "static"    "1."    0 
  384.  
  385. <:#478,9360>87    40    60    8    1012    1342177280    "static"    ""    0 
  386.  
  387. <:#478,9360>78    49    9    8    1004    1342177280    "static"    "2."    0 
  388.  
  389. <:#478,9360>87    49    60    8    1013    1342177280    "static"    ""    0 
  390.  
  391. <:#478,9360>78    58    9    8    1005    1342177280    "static"    "3."    0 
  392.  
  393. <:#478,9360>87    58    60    8    1014    1342177280    "static"    ""    0 
  394.  
  395. <:#478,9360>78    67    9    8    1006    1342177280    "static"    "4."    0 
  396.  
  397. <:#478,9360>87    67    60    8    1015    1342177280    "static"    ""    0 
  398.  
  399. <:#478,9360>78    76    9    8    1007    1342177280    "static"    "5."    0 
  400.  
  401. <:#478,9360>87    76    60    8    1016    1342177280    "static"    ""    0 
  402.  
  403. <:#478,9360>78    85    9    8    1008    1342177280    "static"    "6."    0 
  404.  
  405. <:#478,9360>87    85    60    8    1017    1342177280    "static"    ""    0 
  406.  
  407. <:#478,9360>78    94    9    8    1009    1342177280    "static"    "7."    0 
  408.  
  409. <:#478,9360>87    94    60    8    1018    1342177280    "static"    ""    0 
  410.  
  411. <:#478,9360>78    103    9    8    1010    1342177280    "static"    "8."    0 
  412.  
  413. <:#478,9360>87    103    60    8    1019    1342177280    "static"    ""    0 
  414.  
  415. <:#478,9360>78    112    9    8    1011    1342177280    "static"    "9."    0 
  416.  
  417. <:#478,9360>87    112    60    8    1020    1342177280    "static"    ""    0 
  418.  
  419. <:#478,9360>1    160    1    0    8001    1350565888    "edit"    ""    0 
  420.  
  421. <:#239,9360>END DIALOG
  422.  
  423. >
  424.  
  425. [Embedded]
  426. 00006818
  427. >
  428. [macsum] 4
  429. Multiple 0 0 11 5
  430. initdlg 973 3 3 57
  431. SetName 1224 3 7 65
  432. Getfiles 1952 0 -1 90
  433. [macse]
  434. 14 Multiple
  435. 0 1317
  436. 13
  437. 11 00000101
  438. 0 3 "NewWaveé┼é═é▒é╠â}âNâìé═ùLî°é┼é═éáéΦé▄é╣é±üB"
  439. 6 0
  440. 15
  441. 9
  442. 0 32 2
  443. 0 271 "nFile" 1
  444. 0 264 "nFile" 0
  445. 0 268
  446. 13
  447. 8 1
  448. 0 781 "{1}"
  449. 0 31 9001 "*.s?m"
  450. 0 31 51 1
  451. 0 41 0 "initdlg"
  452. 0 41 9001 "setname"
  453. 0 26 "." "Getfiles"
  454. 13
  455. 8 2
  456. 6 2
  457. 5 1
  458. 18 1
  459. 11 00000313
  460. 10 00000928
  461. 0 27 52
  462. 13
  463. 8 3
  464. 0 290
  465. 13
  466. 8 4
  467. 0 1050
  468. 13
  469. 8 5
  470. 6 5
  471. 11 00000408
  472. 6 5
  473. 21 6 [X]
  474. 0 1051 &6
  475. 5 1
  476. 8 7
  477. 0 265 "nFile"
  478. 13
  479. 6 7
  480. 18 2
  481. 12 00000507
  482. 10 00000928
  483. 5 1
  484. 6 7
  485. 3 0
  486. 8 7
  487. 10 00000418
  488. 0 273 "FileName" "{7}"
  489. 13
  490. 0 16 "{4}" [X]
  491. 13
  492. 0 18 [X]
  493. 13
  494. 8 8
  495. 5 0
  496. 8 9
  497. 5 1
  498. 8 10
  499. 6 5
  500. 6 10
  501. 18 2
  502. 12 00000673
  503. 10 00000745
  504. 5 1
  505. 6 10
  506. 3 0
  507. 8 10
  508. 10 00000595
  509. 6 8
  510. 6 10
  511. 22 6
  512. 18 0
  513. 11 00000732
  514. 5 1
  515. 8 9
  516. 10 00000745
  517. 10 00000638
  518. 6 9
  519. 5 0
  520. 18 0
  521. 11 00000856
  522. 2 102 1 "{8}" 1 "AmiPro"
  523. 0 274 002
  524. 6 3
  525. 11 00000843
  526. 0 1030 "{8}"
  527. 10 00000915
  528. 6 3
  529. 11 00000901
  530. 0 1030 "{8}"
  531. 10 00000915
  532. 0 1029 "{8}"
  533. 10 00000474
  534. 0 266 "nFile"
  535. 0 266 "FileName"
  536. 6 0
  537. 15
  538. 9
  539. 14 initdlg
  540. 0 1050
  541. 13
  542. 8 4
  543. 5 9
  544. 6 4
  545. 3 1
  546. 0 271 "FileName" [X]
  547. 5 1012
  548. 6 4
  549. 3 1
  550. 8 5
  551. 5 1011
  552. 6 5
  553. 18 2
  554. 12 00000167
  555. 10 00000239
  556. 5 1
  557. 6 5
  558. 3 0
  559. 8 5
  560. 10 00000089
  561. 0 44 "{0}" "{5}"
  562. 13
  563. 0 284 "user,EnableWindow,IHI" [X] 0
  564. 10 00000134
  565. 6 3
  566. 15
  567. 9
  568. 14 SetName
  569. 0 44 "{0}" 9001
  570. 13
  571. 8 7
  572. 0 1036 "{7}" 1041 0 0
  573. 13
  574. 0 805 &5 [X]
  575. 13
  576. 0 265 "nFile"
  577. 13
  578. 18 0
  579. 0 42 "{0}" 9001
  580. 13
  581. 0 806 [X] 1
  582. 13
  583. 0 39 91
  584. 13
  585. 18 0
  586. 1 2
  587. 11 00000195
  588. 6 3
  589. 15
  590. 9
  591. 6 5
  592. 5 9
  593. 0 1050
  594. 13
  595. 0 805 &4 [X]
  596. 13
  597. 3 1
  598. 18 3
  599. 11 00000371
  600. 0 1036 "{7}" 1056 0 0
  601. 13
  602. 0 1036 "{7}" 1030 0 [X]
  603. 0 3 "é▒éΩê╚Åπé═âtâ@âCâïé≡âIü[âvâôé┼é½é▄é╣é±üB"
  604. 6 3
  605. 15
  606. 9
  607. 0 264 "nFile" "{5}"
  608. 0 42 "{0}" 8001
  609. 13
  610. 8 8
  611. 6 5
  612. 5 0
  613. 18 0
  614. 11 00000458
  615. 7 ""
  616. 8 8
  617. 5 1
  618. 8 9
  619. 5 9
  620. 6 4
  621. 3 1
  622. 6 9
  623. 18 2
  624. 12 00000553
  625. 10 00000716
  626. 5 1
  627. 6 9
  628. 3 0
  629. 8 9
  630. 10 00000468
  631. 0 20 "{8}" "{9}" " "
  632. 13
  633. 0 805 &6 [X]
  634. 13
  635. 5 -1
  636. 18 0
  637. 11 00000633
  638. 7 ""
  639. 8 6
  640. 5 1011
  641. 6 9
  642. 3 0
  643. 0 43 "{0}" [X] "{6}"
  644. 0 272 "FileName" "{9}" "{6}"
  645. 10 00000520
  646. 6 3
  647. 15
  648. 9
  649. DIALOG Getfiles
  650. -2134376448 27 153 32 150 140 "" "" "òíÉöé╠âtâ@âCâïé≡èJé¡" 
  651. FONT 8 "System" 
  652. 6 4 33 8 1000 1342177280 "static" "├▐¿┌╕─╪:" 0 
  653. 6 13 93 8 7999 1342177280 "static" "current directory" 0 
  654. 105 4 40 12 1 1342373889 "button" "OK" 0 
  655. 105 20 40 12 2 1342373888 "button" "╖¼▌╛┘" 0 
  656. 6 29 40 8 1002 1342177280 "static" "╠º▓┘(\036F\037╠):" 0 
  657. 6 40 65 81 9001 1352728587 "listbox" "" 0 
  658. 12 124 55 12 51 1342308361 "button" "ì┼æσò\Ī(\036X\037╗)" 0 
  659. 80 124 55 12 52 1342177289 "button" "▒▓║▌ë╗(\036N\037▒)" 0 
  660. 78 40 9 8 1003 1342177280 "static" "1." 0 
  661. 87 40 60 8 1012 1342177280 "static" "" 0 
  662. 78 49 9 8 1004 1342177280 "static" "2." 0 
  663. 87 49 60 8 1013 1342177280 "static" "" 0 
  664. 78 58 9 8 1005 1342177280 "static" "3." 0 
  665. 87 58 60 8 1014 1342177280 "static" "" 0 
  666. 78 67 9 8 1006 1342177280 "static" "4." 0 
  667. 87 67 60 8 1015 1342177280 "static" "" 0 
  668. 78 76 9 8 1007 1342177280 "static" "5." 0 
  669. 87 76 60 8 1016 1342177280 "static" "" 0 
  670. 78 85 9 8 1008 1342177280 "static" "6." 0 
  671. 87 85 60 8 1017 1342177280 "static" "" 0 
  672. 78 94 9 8 1009 1342177280 "static" "7." 0 
  673. 87 94 60 8 1018 1342177280 "static" "" 0 
  674. 78 103 9 8 1010 1342177280 "static" "8." 0 
  675. 87 103 60 8 1019 1342177280 "static" "" 0 
  676. 78 112 9 8 1011 1342177280 "static" "9." 0 
  677. 87 112 60 8 1020 1342177280 "static" "" 0 
  678. 1 160 1 0 8001 1350565888 "edit" "" 0 
  679. 00006843
  680.